﻿Imports CoreClassLibraryCMS

Public Class GetDefaultStoreUser
    Inherits ProcessHelper.AbsProcess


    Public Overrides Function CreateProcess(User As String, Target As String, param As String) As System.Web.Mvc.JsonResult
        Dim koneksi As New ADODBU.dbConn
        Dim rctmp As ADODBU.Recordset
        Dim y As New Web.Mvc.JsonResult
        Dim query As String

        koneksi = Connection.GetDBConn
        query = query & "  select * from dbo.storeUserValid('" & "1000" & " ')"

        rctmp.Open(query, "SYS_SETTINGS", koneksi)

        If Not rctmp.Eof Then
            Dim res = New With {.success = True, .Interface = rctmp.Fields("STORE")}
            y.Data = res
        Else
            Dim res = New With {.success = False}
            y.Data = res
        End If

        Return y
    End Function

    Public Overrides Function GetStatus() As String

    End Function
End Class
